home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a04.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
1KB
|
37 lines
1000 'A04.BAS***************************************************T.K.MOSAKU
1010 SCREEN@ 0
1020 CLS
1030 WINDOW (-5,-5)-(5,5)
1040 VIEW(0,0)-(640,480)
1050 A$="☆☆☆ 少しずつカーブのずれた曲線を描いて立体感を出しています。 ☆☆☆"
1060 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$
1070 PP=3.14159!/180:A=.5!:B=.5!:S=0:T1=TIME
1080 FOR X=-4 TO 4 STEP .2!
1090 Y=-4
1100 GOSUB *MAIN
1110 POINT(XX,YY)
1120 FOR Y=-4 TO 4 STEP .2!
1130 GOSUB *MAIN
1140 LINE -(XX,YY),PSET,5
1150 NEXT
1160 S=S+1
1170 NEXT
1180 FOR Y=-4 TO 4 STEP .2!
1190 X=-4
1200 GOSUB *MAIN
1210 POINT(XX,YY)
1220 FOR X=-4 TO 4 STEP .2!
1230 GOSUB *MAIN
1240 LINE -(XX,YY),PSET,4
1250 NEXT
1260 S=S+1
1270 NEXT
1280 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒 描いた曲線の数--";S;"本"
1290 WAIT 200
1300 GOTO 1350
1310 *MAIN
1320 XX=A*X+A*Y
1330 YY=B*X-B*Y-COS(X)*COS(Y)*.5!
1340 RETURN
1350 '